home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 24 / 024.d81 / all smiles (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  203 lines
  1. 10 if t=0thent=1:print"[147]":load"parts",8,1
  2. 100 ifml=1then295
  3. 110 ifml=2then310
  4. 120 ifml=8then1180
  5. 130 if jg=0 then jg=5 : gosub1860
  6. 140 rem
  7. 150 dimw(99,2):lv=0:print"[147][152]";
  8. 160 w(4,1)=33:w(4,2)=5:forb=6to13:w(b,1)=21:w(b,2)=55:next
  9. 170 w(82,1)=129:w(82,2)=250:w(50,1)=129:w(50,2)=250
  10. 180 w(99,1)=21:w(99,2)=250:sl$="                                       "
  11. 190 w(1,1)=17:w(1,2)=50:f$="maze 1"
  12. 200 w(3,1)=65:w(3,2)=15:w(5,1)=85:w(5,2)=30:w(26,1)=129:w(26,2)=25
  13. 210 x=2:y=1:cl=13:ch=82:ml=.
  14. 220 poke53281,12:poke53280,12:d=.:x1=.:x2=.:x3=.:ok=.:ml=.
  15. 230 oo$="[147]"
  16. 240 ifjp=mzthenpb=-1:goto1010
  17. 250 fort=54272to54295:poket,0:next:poke54296,15:iflv>4thenlv=4
  18. 260 ad=1*16+0:sr=15*16+2
  19. 270 poke54284,ad:poke54285,sr:poke54282,0:poke54281,255
  20. 280 poke53281,76
  21. 290 ifml=.thenml=1:load f$+".ml",8,1
  22. 295 print"[144]  press fire button to die[145][145]"
  23. 300 ifml=1thenml=2:load f$+"/c.ml",8,1
  24. 310 rem
  25. 320 ifx=2thenprint"[144]o":goto340
  26. 330 ifx=12thenprint"o"
  27. 340 gosub1720
  28. 350 j=peek(56320):ifj<>127then370
  29. 360 q=peek(54272+(1023+x+(y*40))):poke54272+(1023+x+(y*40)),abs((q)-1):goto350
  30. 370 fort=54272to54295:poket,0:next:poke54296,15
  31. 380 ad=1*16+0:sr=15*16+2
  32. 390 poke54284,ad:poke54285,sr:poke54282,0:poke54281,255:ifj<>127then420
  33. 400 ifpeek(56320)=127andd<>2then400
  34. 410 j=peek(56320)
  35. 420 ifj=119thenx1=1023+x+1:x2=y*40:ifpeek(x1+x2)<5orpeek(x1+x2)=82then530
  36. 430 ifj=123thenx1=1023+x-1:x2=y*40:ifpeek(x1+x2)<5orpeek(x1+x2)=82then530
  37. 440 ifj=126thenx1=1023+x:x2=y-1:x3=x2*40:ifpeek(x1+x3)=1then530
  38. 450 ifj=125thenx1=1023+x:x3=(y+1)*40:ifpeek(x1+x3)=1orpeek(x1+x3)=32then530
  39. 460 ifj=119thenx1=1023+x+1:x2=y*40:ifpeek(x1+x2)=32orpeek(x1+x2)=99then530
  40. 470 ifj=123thenx1=1023+x-1:x2=y*40:ifpeek(x1+x2)=32orpeek(x1+x2)=99then530
  41. 480 ifj=111thench=32:goto680
  42. 490 ifd<>2then400
  43. 500 ifd=2andsm=.thenj=126:goto530
  44. 510 ifsm=1then1070
  45. 520 goto400
  46. 530 ifd=2andj<>126thend=.:sm=.
  47. 540 x1=1023+x:x2=y*40:x3=x1+x2:pokex3,ch:poke54272+x3,cl
  48. 550 ifj=119thenx=x+1
  49. 560 ifj=123thenx=x-1
  50. 570 ifj=126theny=y-1
  51. 580 ifj=125theny=y+1
  52. 590 x3=1023+x+y*40:ch=peek(x3):cl=peek(54272+x3)
  53. 600 poke54283,.:poke54280,.
  54. 610 poke54283,w(ch,1):poke54280,w(ch,2):poke54283,abs(w(ch,1)-1)
  55. 620 ok=peek(x3)
  56. 630 ifch=3thench=5:cl=9
  57. 640 pokex3,15:pokex3+54272,0:ifok<>32andd<>1then400
  58. 650 ifok=2ord=2thend=2:goto1040
  59. 660 ifok=32thend=1:j=125:poke54283,21:poke54280,y*9:poke54283,20:goto530
  60. 670 ifch=99thend=0:goto400
  61. 680 x1=1023+x:x2=y*40:gosub1080:fort=65to73:pokex1+x2,t:forh=1to80:next:next
  62. 690 poke54283,0
  63. 700 ifok=3then740
  64. 710 ifok=19then740
  65. 720 x1=1023+x:x2=y*40:x3=x1+x2:pokex3,ch:poke54272+x3,cl
  66. 730 goto1090
  67. 740 on jp+1 goto750,790,830,870,910,950,990
  68. 750 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto660
  69. 760 ifok<>19then1090
  70. 770 ifjp=0thenjp=1:poke53281,76:printoo$"you may advance to the next level[146]!"
  71. 780 f$="maze 2":lv=lv+1:goto210
  72. 790 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto660
  73. 800 ifok<>19then1090
  74. 810 poke53281,76:printoo$"you deserve to play the next level[146]!"
  75. 820 jp=2:f$="maze 3":lv=lv+1:goto210
  76. 830 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto660
  77. 840 ifok<>19then1090
  78. 850 poke53281,76:printoo$"lets see if you can conquer this..."
  79. 860 jp=3:f$="maze 4":x=12:y=20:ch=1:cl=0:lv=lv+1:goto220
  80. 870 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto660
  81. 880 ifok<>19then1090
  82. 890 poke53281,76:printoo$"you may advance to a new level![146]"
  83. 900 lv=lv+1:jp=4:f$="maze 5":goto210
  84. 910 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto660
  85. 920 ifok<>19then1090
  86. 930 poke53281,76:printoo$"you may attempt another level![146]"
  87. 940 lv=lv+1:jp=5:f$="maze 6":goto210
  88. 950 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto660
  89. 960 ifok<>19then1090
  90. 970 poke53281,76:printoo$"try this next level![146]"
  91. 980 lv=lv+1:jp=6:f$="maze 7":goto210
  92. 990 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto660
  93. 1000 ifok<>19then1090
  94. 1010 print"[147]   you have won... but not conquered!"
  95. 1020 print:print"            i will return!"
  96. 1025 if pb then pb=0:goto1035
  97. 1030 gosub1570:fort=1to2000:next:gosub1810:print"[147]";:goto1850
  98. 1035 print"[147]";:goto1850
  99. 1040 ifpeek(x3-40)=32thenj=126:poke54283,21:poke54280,y*9:poke54283,20:goto400
  100. 1050 ifpeek(x3-40)=99thend=.:j=126:goto530
  101. 1060 j=peek(56320):ifj=119orj=123thensm=1:goto420
  102. 1070 j=111:goto480
  103. 1080 poke54283,129:poke54280,5:return
  104. 1090 iflv=.then1840
  105. 1100 poke53281,76:printoo$"you were lucky this time[146]!"
  106. 1110 ifjp=.thenstop
  107. 1120 lv=lv-2:on jp goto780,820,860,900,940,980,1090
  108. 1130 poke56334,peek(56334)or1:poke53272,(peek(53272)and240)+12
  109. 1140 ifpeek(12288)=60then1180
  110. 1150 ml=8:load"parts",8,1
  111. 1160 fori=.to255:forj=.to7:get#1,a$:poke12288+j+i*8,asc(a$+chr$(.)):nextj,i
  112. 1170 close2
  113. 1180 print"[147]";
  114. 1190 print"[147]";
  115. 1200 print"[147][144]";:jq=56320:poke198,0:sw=12:poke53281,0:poke53280,0:jp=0:mz=7
  116. 1205 print"press 'q' to return to loadstar"
  117. 1210 print"press fire to play"
  118. 1220 cq=cq+1:forg=1tosw:geta$:ifa$=""andpeek(jq)=127thennext
  119. 1230 ifa$<>""orpeek(jq)<>127then1300
  120. 1240 ifcq=1orcq=9thenprint"[144]";:goto1205
  121. 1250 ifcq=2orcq=8thenprint"[151]";:goto1205
  122. 1260 ifcq=3orcq=7thenprint"[152]";:goto1205
  123. 1270 ifcq=4orcq=6thenprint"[155]";:goto1205
  124. 1280 ifcq=5thenprint"";:goto1205
  125. 1290 cq=1:sw=abs(sw)-1:goto1240
  126. 1300 if a$ ="q" then 62999
  127. 1305 poke53281,12:poke53280,12:print"[147]o thank you[146] o":gosub1830:gosub1770
  128. 1310 ifga=1thenforg=1to1000:next:goto1500
  129. 1320 print"[147]ron coffen"
  130. 1330 print"      presents":forg=1to2500:next
  131. 1340 fort=.to24:poke54272+t,0:next
  132. 1350 print:print"[147][153]gggggggggggggggggggggggggggggggggggggggg"
  133. 1360 print"[149]     eee  e    e
  134. 1370 [153]"    e   e e    e
  135. 1380 print"    eeeee e    e
  136. 1390 [153]"    e   e e    e
  137. 1400 print"    e   e eeee eeee
  138. 1410 [153]
  139. 1420 [153]
  140. 1430 [153]"           eee  e e  eee e   eee  eee
  141. 1440 print"          e    e e e  e  e   e   e
  142. 1450 [153]"           ee  e   e  e  e   ee   ee
  143. 1460 print"             e e   e  e  e   e      e
  144. 1470 [153]"          eee  e   e eee eee eee eee
  145. 1480 print:print"[153][153]gggggggggggggggggggggggggggggggggggggggg"
  146. 1490 return:gosub1680
  147. 1500 print"";:print"      press fire on joystick 2."
  148. 1510 print"                   [144]oo"
  149. 1520 ifpeek(56320)=127then1520
  150. 1530 :x1=1043:x2=920:gosub1810:fort=65to73:pokex1+x2,t:forh=1to60:next:next
  151. 1540 x1=1044:x2=920:gosub1810:fort=65to73:pokex1+x2,t:forh=1to60:next:next
  152. 1550 gosub1610:goto140
  153. 1560 stop
  154. 1570 gosub1830:rem"[192][192][192] last x[192][192][192]"
  155. 1580 poke54296,15:poke54277,8:poke54278,255:poke54276,23:f1=10:forz=1to24:f2=30
  156. 1590 poke54273,f1:fory=1to10:poke54287,f2:f2=f2*1.01:next:f1=f1+8:next:poke54296,0
  157. 1600 return
  158. 1610 gosub1830:rem"[192][192][192] hyper [192][192][192]"
  159. 1620 poke54296,15:poke54277,8:poke54278,255:poke54276,21:f1=2:forz=1to24:f2=80
  160. 1630 poke54273,f1:fory=1to5:poke54287,f2:f2=f2/1.1:next:f1=f1+9:next:poke54296,0
  161. 1640 return
  162. 1650 gosub1830:rem"[192][192][192] decel [192][192][192]"
  163. 1660 poke54296,15:poke54277,8:poke54278,255:poke54276,85:f1=100:f2=230:forz=1to77
  164. 1670 poke54272,f1:poke54287,f2:f2=f2-2:f1=f1*.99:next:poke54296,0:return
  165. 1680 rem"[192][192][192] cryst [192][192][192]"
  166. 1690 poke54296,15:poke54277,15:poke54298,17:poke54276,19:poke54287,64:forn=1to4
  167. 1700 forf=1to255step1.5:poke54273,f:nextf
  168. 1710 forf=255to1step-1.5:poke54273,f:nextf:nextn:poke54296,0:return
  169. 1720 gosub1830:rem"[192][192][192] alien [192][192][192]"
  170. 1730 poke54296,15:poke54277,15:poke54286,67:poke54287,12:poke54276,21
  171. 1740 forf=.to255step2:poke54273,f:nextf
  172. 1750 forf=255to0step-2:poke54273,f:next:return
  173. 1760 j=peek(56320):return
  174. 1770 rem"[192][192][192] fall  [192][192][192]"
  175. 1780 q=50:f2=150:poke54296,15:poke54277,4:poke54278,12:forz=1to50
  176. 1790 f1=int(100*rnd(1))+10:poke54276,23:fort=1toq:next:poke54273,f1:poke54287,f2
  177. 1800 poke54276,20:q=q-1:f2=f2-3:next:poke54273,30:return
  178. 1810 gosub1830:poke54284,16:poke54285,242:poke54296,15:poke54283,129:poke54280,5
  179. 1820 return
  180. 1830 forg=54272to54296:pokeg,0:next:return
  181. 1840 print"[147]              p game over[146] p":gosub1650
  182. 1850 forg=1to1000:next:clr:restore:ga=1::po